home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
027a
/
qquery.zip
/
QQREAD.PRG
< prev
next >
Wrap
Text File
|
1991-08-01
|
1KB
|
44 lines
* QQREAD.PRG - read only substitute for DO QQUERY
RELEASE qqname,qqdesc,qquery
PRIVATE ALL LIKE qq*
PUBLIC qqname,qqdesc,qquery
qqtitle=REPL(CHR(178),31)+' Q Q U E R Y (tm) '+REPL(CHR(178),31)
qqalias=ALIAS()
SELECT 0 && surround with ON ERROR statements
USE &qqalias..qdb INDEX &qqalias..qdx ALIAS qquery && test for EOF()
SET MESSAGE TO 23
DO WHILE .T.
SET MESSAGE TO 'Point to a query, then strike Escape'
BROWSE NOMODIFY FIELDS qdname,qdescript,qdledit
SET MESSAGE TO ''
@ 0, 0 GET qqtitle
@ 4, 0 SAY "Condition"
@ 5, 0 GET qdquery
@ 16, 0 TO 19,79
@ 17, 2 SAY "Name Description"
@ 17,69 SAY "Last Edit"
@ 18, 2 GET qdname
@ 18,12 GET qdescript
@ 18,69 GET qdledit
CLEAR GETS
qqchoice=1
@ 24, 0 PROMPT 'Use' MESSAGE 'Use this query'
@ 24,10 PROMPT 'List' MESSAGE 'Choose a different query'
@ 24,20 PROMPT 'Cancel' MESSAGE 'Cancel the report for now'
MENU TO qqchoice
DO CASE
CASE qqchoice=1
EXIT
CASE qqchoice=3
GOTO BOTTOM
SKIP && point to a nul record, EOF()
EXIT
ENDCASE
ENDDO
qqname=TRIM(qdname)
qqdesc=TRIM(qdescript)
qquery=TRIM(qdquery)
USE
SELECT &qqalias
RETURN